LISTING DER DATEI "REX I"


-------------------------------------------------------------------------------------------
INITIONALISIERUNG BEIM ERSTEN START
-------------------------------------------------------------------------------------------
0 IFKR=1THEN GOTO15215
1 IFA=0THENA=A+1:LOAD"TURBO.EXT.10",8,1
2 SYS52224:SYS51280:SYS50944:POKE808,234
3 IFA=1THENA=A+1:LOAD"PAGE10",8,1
14 R=20000:SO=1551:CH=1024:CO=1052:PRINT"":GOSUB18100
30 GOSUB16000:AZ=5:POKE53248+17,11:GOSUB20000
35 OPEN1,8,2,"BEGINN,S,R":GOSUB40962:POKE53248+17,27
90 GOSUB13000:GOSUB13100:D=0
-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
H A U P T S C H L E I F E  D E S  P R O G R A M M S !!!
-------------------------------------------------------------------------------------------
150 REM
160 IFEN(D)=1THENEN(D)=0:GOTO170
165 GOSUB40500:GOSUB40200:GOSUB37600       'Staatsaleihen-Belastung: Var-Berechn: Var-Berechn
167 GOSUB2070                              'Hauptmen
168 GOSUB30000                             'Aktionsteil
170 D=D+1:IFD<AZTHENGOTO150
175 JA=JA+1:GOSUB16400                     'in den Reichsrat einberufen
200 D=0:GOTO 150
-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
B E G I N N  D E R  U N T E R R O U T I N E N 
-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
H A U P M E N 
-------------------------------------------------------------------------------------------
1900 SYSCH,12,16,"EINWOHNER   :";EI(D)
1910 SYSCH,12,17,"KORNBEDARF  :";KK(D);"MAAS"
1920 SYSCH,12,18,"KORNSPEICHER:";KO(D);"MAAS"
1930 SYSCH,12,19,"VERM=GEN    :";INT(T(D));"T."
1940 SYSCH,12,20,"LANDFL<CHE  :";AC(D)+OD(D)+WA(D);"HA"
1950 SYSCH,12,21,"M>HLEN      :";MU(D)
1955 SYSCH,2,13,"";EH$(TT(D));" ";NA$(D);" VON ";LA$(D);""
1957 SYSCH,2,14,"WIR SCHREIBEN DAS JAHR";JA;"!":R=20000:RETURN
-------------------------------------------------------------------------------------------
2000 POKE53265,11:PRINT"":GOSUB14000:GOSUB14100:POKE1294,8:POKE53248+17,27
2010 SYSCH,2,16,"LANDGUT":GOSUB19000:
2020 SYSCH,2,17,"HANDEL"
2030 SYSCH,2,18,"JUSTIZ"
2040 SYSCH,2,19,"FINANZ"
2050 SYSCH,2,20,"HOF"
2055 SYSCH,2,21,"KARTE"
2057 SYSCH,2,22,"BEENDEN":RETURN
-------------------------------------------------------------------------------------------
H A U P T S C H L E I F E  D E S  H A U P M E N  S  (aufgerufen von 167)
-------------------------------------------------------------------------------------------
2070 GOSUB2000:GOSUB1900:SYSCO,2,16,7,1:X=0:Y=0
2080 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
2090 IF(AAND2)=0THENX=X+1:IFX>6THENX=6
2100 IFX<>YTHENSYSCO,2,16+X,7,1:SYSCO,2,16+Y,7,7:SYSSO,R,17
2112 Y=X:IF(AAND16)=0ANDX=6THENPOKE53248+21,0:RETURN
2115 IF(AAND16)=0THENGOSUB2200:GOTO2070
2120 GOTO2080
-------------------------------------------------------------------------------------------
2200 POKE53248+21,0:ON(X+1)GOSUB3050,4200,5200,17300,11100,7000:RETURN
-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
U N T E R M E N  - L A N D G U T
-------------------------------------------------------------------------------------------
3000 POKE53265,11:PRINT"":GOSUB14000:GOSUB14140:POKE1294,10:POKE53265,27
3001 RETURN
3005 GOSUB36900:R=10000
3010 SYSCH,2,18,"WALD RODEN"
3020 SYSCH,2,19,"=DLAND BEACKERN"
3030 SYSCH,2,20,"M>HLEN BAUEN"
3032 SYSCH,2,21,"SILBERMINEN BAUEN"
3035 SYSCH,2,22,"BEENDEN":RETURN
-------------------------------------------------------------------------------------------
 --- Folgende Zeile wird nie aufgerufen
-------------------------------------------------------------------------------------------
3045 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB14140:POKE53265,27:RETURN
-------------------------------------------------------------------------------------------
H A U P T S C H L E I F E  D E S  U N T E R M E N  - L A N D G U T
-------------------------------------------------------------------------------------------
3050 GOSUB3000:GOSUB3260
3055 X=0:Y=0:SYSCO,2,18,17,1
3060 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
3070 IF(AAND2)=0THENX=X+1:IFX>4THENX=4
3080 IFX<>YTHENSYSCO,2,18+X,17,1:SYSCO,2,18+Y,17,2:SYSSO,R,17
3100 Y=X:IF(AAND16)=0ANDX=4THENRETURN
3105 IF(AAND16)=0THENGOSUB3150:GOSUB3260:GOTO3055
3110 GOTO 3060
-------------------------------------------------------------------------------------------
3150 ON(X+1)GOSUB3300,3400,3500,3600:RETURN
-------------------------------------------------------------------------------------------
3200 SYSCH,4,14,"SIE BESITZEN:"
3205 SYSCH,27-LEN(STR$(OD(D))),15,OD(D);"HA =DLAND"
3210 SYSCH,27-LEN(STR$(AC(D))),14,AC(D);"HA ACKER"
3215 SYSCH,27-LEN(STR$(T(D))),19,INT(T(D));"TALER"
3220 SYSCH,27-LEN(STR$(WA(D))),16,WA(D);"HA WALD"
3230 SYSCH,27-LEN(STR$(MU(D))),18,MU(D);"M>HLEN"
3232 SYSCH,27-LEN(STR$(SI(D))),17,SI(D);"MINEN":RETURN
3260 FORX=14TO23:SYSCH,1,X,"                                     ":NEXT
3270 GOSUB3005:GOSUB3200:RETURN
3280 FORX=14TO23:SYSCH,1,X,"                                     ":NEXT:RETURN
3300 GOSUB3280:GOSUB3200
3302 IFR1<>0THENGOSUB3370:RETURN
3330 R1=INT(0.2*EI(D)*FR(D)/365):IFR1>WA(D)THENR1=WA(D)
3335 WA(D)=INT(WA(D)-R1):OD(D)=INT(OD(D)+R1):HO(D)=INT(HO(D)+R1*11):GOSUB3360
3350 GOSUB10500:RETURN
3360 SYSCH,2,21,"SIE RODEN";R1;"HA WALD!":RETURN
3370 SYSCH,4,21,"SIE HABEN BEREITS WALD GERODET!":GOSUB10500
3371 FORZ=0TO400:NEXT:RETURN
3400 GOSUB3280
3401 IFR2<>0THENGOSUB3470:RETURN
3405 GOSUB3200
3430 R2=INT(0.2*EI(D)*FR(D)/365):IFR2>OD(D)THENR2=OD(D)
3435 AC(D)=AC(D)+R2:OD(D)=OD(D)-R2:GOSUB3460:GOSUB10500:RETURN
3460 SYSCH,2,21,"SIE SCHAFFEN";R2;"HA ACKER!":GOSUB10500:RETURN
3470 SYSCH,3,21,"SIE HABEN BEREITS ODLAND BEACKERT":GOSUB10500
3471 FORZ=0TO400:NEXT:RETURN
3500 GOSUB3280:GOSUB3200
3510 SYSCH,2,21,"WIEVIEL M>HLEN BAUEN SIE?"
3515 SYSCH,2,22,"BAUPREIS:";MP;"TALER"
3520 XP=35:YP=21:S=2:GOSUB10000
3522 A=INT((AC(D)+WA(D)+OD(D))/1000-MU(D))
3523 IFA<ETHENGOSUB3580:RETURN
3525 REMIFE*MP>T(D)THENGOTO3570
3560 SYSCH,2,21,"OK, DIE M>HLEN SIND IN IHRER HAND  ":GOSUB10500
3565 T(D)=T(D)-MP*E:MU(D)=MU(D)+E:RETURN
3570 SYSCH,2,21,"SIE BESITZEN NICHT GENUG GELD!     ":GOSUB10500:RETURN
3580 SYSCH,2,21,"SIE BESITZEN ZU WENIG BAULAND!     ":GOSUB10500:RETURN
3600 GOSUB3280:GOSUB3200
3610 SYSCH,2,21,"WIEVIEL MINEN BAUEN SIE?"
3615 SYSCH,2,22,"BAUPREIS:";SM;"TALER"
3620 XP=35:YP=21:S=2:GOSUB10000
3622 A=INT((AC(D)+WA(D)+OD(D))/1000-SI(D))
3623 IFA<ETHENGOSUB3580:RETURN
3625 REMIFE*SM>T(D)THENGOTO3670
3660 SYSCH,2,21,"OK, DIE MINEN WERDEN GEBAUT       ":GOSUB10500
3665 T(D)=T(D)-SM*E:SI(D)=SI(D)+E:RETURN
3670 SYSCH,2,21,"SIE BESITZEN NICHT GENUG GELD!     ":GOSUB10500:RETURN

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
U N T E R M E N  - H A N D E L
-------------------------------------------------------------------------------------------
4000 POKE53265,11:PRINT"":GOSUB14000:GOSUB16100:POKE1294,14:POKE53265,27
4005 RETURN
4010 GOSUB4460:SYSCH,2,11,"SIE BESITZEN:"
4015 SYSCH,27-LEN(STR$(OD(D))),11,OD(D);"=DLAND"
4016 SYSCH,27-LEN(STR$(WA(D))),12,WA(D);"WALD"
4017 SYSCH,27-LEN(STR$(AC(D))),13,AC(D);"ACKERLAND"
4018 SYSCH,27-LEN(STR$(KK(D))),14,KK(D);"KORNBEDARF"
4019 SYSCH,27-LEN(STR$(S(D))),17,S(D);"SILBERUNZEN"
4020 SYSCH,27-LEN(STR$(HO(D))),16,HO(D);"METER HOLZ"
4025 SYSCH,27-LEN(STR$(KO(D))),15,KO(D);"TONNEN KORN"
4030 SYSCH,27-LEN(STR$(INT(T(D)))),18,"";INT(T(D));"TALER":RETURN
-------------------------------------------------------------------------------------------
4100 SYSCH,2,17,"KORN KAUFEN"
4105 SYSCH,2,18,"KORN VERKAUFEN"
4110 SYSCH,2,19,"SILBER VERKAUFEN"
4120 SYSCH,2,20,"HOLZ VERKAUFEN"
4125 SYSCH,2,21,"LAND KAUFEN"
4130 SYSCH,2,22,"LAND VERKAUFEN"
4135 SYSCH,2,23,"BEENDEN":GOSUB16200:RETURN
-------------------------------------------------------------------------------------------
4200 GOSUB4000:GOSUB4350:RETURN
-------------------------------------------------------------------------------------------
4350 GOSUB4010:GOSUB4100:X=0:Y=0:SYSCO,2,17,18,1
4360 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
4370 IF(AAND2)=0THENX=X+1:IFX>6THENX=6
4380 IFX<>YTHENSYSCO,2,17+X,17,1:SYSCO,2,17+Y,17,6:SYSSO,R,17
4393 Y=X:TY=Y:IF(AAND16)=0ANDX=6THENRETURN
4395 IF(AAND16)=0THENGOSUB4400:GOTO4350
4397 GOTO 4360
-------------------------------------------------------------------------------------------
4400 ON(X+1)GOSUB4500,4600,4700,4800,4900,5000:RETURN
-------------------------------------------------------------------------------------------
4450 FORL=0TO6:SYSCH,2,17+L,"                ":NEXT:RETURN
4460 FORX=10TO23:SYSCH,1,X,"                                     ":NEXT:RETURN
4500 GOSUB4450
4510 SYSCH,2,20,"WIEVIEL KORN KAUFEN SIE?"
4515 SYSCH,2,21,"KORNPREIS:";KP;"TALER"
4520 YP=20:XP=31:S=4:GOSUB10000
4535 T(D)=T(D)-E*KP:KO(D)=KO(D)+E
4540 SYSCH,2,20,"DAS GETREIDE WIRD GEBUNKERT!      ":GOSUB10500:RETURN
4600 GOSUB4450
4610 SYSCH,2,20,"WIEVIEL KORN VERKAUFEN SIE?"
4615 SYSCH,2,21,"KORNPREIS:";KP;"TALER"
4620 YP=20:XP=34:S=4:GOSUB10000
4630 IFE>KO(D)THENGOTO4650
4635 T(D)=T(D)+E*KP:KO(D)=KO(D)-E
4640 SYSCH,2,20,"DAS GETREIDE IST DAMIT VERKAUFT!   ":GOSUB10500:RETURN
4650 SYSCH,2,21,"NICHT M=GLICH!                   ":GOSUB10500:RETURN
4700 GOSUB4450
4710 SYSCH,2,20,"WIEVIEL SILBER VERKAUFEN SIE?"
4715 SYSCH,2,22,"SILBERPREIS PRO UNZE:";SP;"TALER"
4720 YP=20:XP=35:S=3:GOSUB10000
4730 IFE>S(D)THENGOTO4750
4735 T(D)=T(D)+E*SP:S(D)=S(D)-E
4740 SYSCH,2,20,"DAS SILBER IST DAMIT VERKAUFT!   ":GOSUB10500:RETURN
4750 SYSCH,2,22,"NICHT M=GLICH!                     ":GOSUB10500:RETURN
4800 GOSUB4450
4810 SYSCH,2,20,"WIEVIEL HOLZ VERKAUFEN SIE?"
4815 SYSCH,2,22,"FESTHOLZ PRO METER:";HP;"TALER"
4820 YP=20:XP=35:S=3:GOSUB10000
4830 IFE>HO(D)THENGOTO4850
4835 T(D)=T(D)+E*HP:HO(D)=HO(D)-E
4840 SYSCH,2,20,"DAS HOLZ IST DAMIT VERKAUFT!         ":GOSUB10500:RETURN
4850 SYSCH,2,22,"NICHT M=GLICH!                   ":GOSUB10500:RETURN
4900 GOSUB4450
4902 IFL1=0THENA$="ODLAND":PZ=OP
4904 IFL1=1THENA$="WALD":PZ=WP
4906 IFL1=2THENA$="ACKER":PZ=AP
4908 SYSCH,2,18,"EIN LANDESFURST":SYSCH,7,19,"BIETET"
4909 SYSCH,2,20,L2;"HA ";A$;" AN."
4910 SYSCH,2,22,"WIEVIEL ";A$;" KAUFEN SIE?"
4915 SYSCH,2,23,"PREIS PRO HA:";PZ;"TALER"
4920 YP=22:XP=35:S=3:GOSUB10000
4930 IFE>L2THENGOTO4950
4935 T(D)=T(D)-E*PZ
4936 IFL1=0THENOD(D)=OD(D)+E
4937 IFL1=1THENWA(D)=WA(D)+E
4938 IFL1=2THENAC(D)=AC(D)+E
4939 L2=L2-E:RETURN
4950 SYSCH,2,22,"SOVIEL LAND STEHT NICHT ZUM VERKAUF!   ":GOSUB10500:RETURN
5000 GOSUB4450
5002 IFL1=0THENA$="ODLAND":PZ=OP:ME=OD(D)
5004 IFL1=1THENA$="WALD":PZ=WP:ME=WA(D)
5006 IFL1=2THENA$="ACKER":PZ=AP:ME=AC(D)
5008 SYSCH,2,18,"ZUR ZEIT IST   ":SYSCH,2,19,"AUSSCHLIE*LICH"
5009 SYSCH,2,20,A$;" GEFRAGT."
5010 SYSCH,2,22,"WIEVIEL ";A$;" VERKAUFEN SIE?"
5015 SYSCH,2,23,"PREIS PRO HA:";PZ;"TALER"
5020 YP=22:XP=35:S=3:GOSUB10000
5030 IFE>METHENGOTO5050
5035 T(D)=T(D)+E*PZ
5036 IFL1=0THENOD(D)=OD(D)-E
5037 IFL1=1THENWA(D)=WA(D)-E
5038 IFL1=2THENAC(D)=AC(D)-E
5040 SYSCH,2,22,"SIE HABEN DAS LAND VERKAUFT!        ":GOSUB10500:RETURN
5050 SYSCH,2,22,"SOVIEL LAND HABEN SIE NICHT!       ":GOSUB10500:RETURN

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
U N T E R M E N  - J U S T I Z
-------------------------------------------------------------------------------------------
5100 POKE53265,11:PRINT"":GOSUB14300:GOSUB14100:POKE1294,11:GOSUB19000
5104 POKE53265,27
5105 GOSUB36920:SYSCH,4,16,"STEUERN    :  ";SW(D);"%"
5110 SYSCH,4,17,"ZOLL       :  ";ZO(D);"%"
5120 SYSCH,4,18,"JUSTIZ     :   ";JU$(JU(D))
5130 SYSCH,4,19,"FRONDIENSTE:  ";FR(D);"TAGE IM JAHR"
5135 SYSCH,4,20,"BEENDEN"
5137 SYSCH,4,22,"MILIT<RTRUPPEN:";INT(KA(D)+IN(D)+AL(D)):RETURN
-------------------------------------------------------------------------------------------
5200 GOSUB 5370:GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
5300 REM
5370 GOSUB5100:SYSCO,4,16,11,1:X=0:Y=0
5380 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
5390 IF(AAND2)=0THENX=X+1:IFX>4THENX=4
5392 IFX<>YTHENSYSCO,4,16+X,11,1:SYSCO,4,16+Y,11,7:SYSSO,R,17
5396 Y=X:IF(AAND16)=0ANDX=4THENRETURN
5397 IF(AAND16)=0THENGOSUB5399:GOTO5370
5398 GOTO 5380
-------------------------------------------------------------------------------------------
5399 ON(X+1)GOSUB5400,5500,5600,5700:RETURN
-------------------------------------------------------------------------------------------
5400 SYSCH,4,22,"NEUE STEUERN:     % ":XP=20:YP=22:S=1:GOSUB10000:SW(D)=E
5410 RETURN
5500 SYSCH,4,22,"NEUER ZOLL:     % ":XP=18:YP=22:S=1:GOSUB10000:ZO(D)=E
5510 RETURN
5600 SYSCH,4,22,"JUSTIZ:         "
5610 B=PEEK(56320):IF(BAND1)=0THENK=K-1:IFK<0THENK=0
5620 IF(BAND2)=0THENK=K+1:IFK>3THENK=3
5630 SYSCH,15,22,"";JU$(K);"      "
5640 IF(BAND16)=0THENJU(D)=K:RETURN
5645 FORT=0TO35:NEXT
5650 GOTO5610
5700 IFR1<>0ORR2<>0THENGOSUB5750:RETURN
5705 SYSCH,4,22,"WIEVIEL TAGE:     TAGE ":XP=20:YP=22:S=2:GOSUB10000:FR(D)=E
5710 IFE>365THENFR(D)=365
5720 RETURN
5750 SYSCH,2,22,"ES WURDE SCHON FRONARBEIT GELEISTET":GOSUB10500
5760 FORZ=0TO400:NEXT:RETURN

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
6000 SYS1214,39936,"M.LUST",8:RETURN
6010 POKE38912+3,42:SYS39284:RETURN
6020 SYS1214,39936,"M.GARDE",8:RETURN
6030 POKE38915,39:SYS39284:RETURN
6040 SYS1214,39936,"M.BACH",8:RETURN
6050 POKE38915,27:SYS39284:RETURN
6060 SYS1214,39936,"M.MELODIE",8:RETURN
6070 POKE38915,36:SYS39284:RETURN
6080 SYS1214,39936,"M.TELE",8:RETURN
6090 POKE38915,59:SYS39284:RETURN

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
7000 GOSUB14500:A=1
7005 GOSUB36000:IF(PEEK(56320)AND16)=0THENRETURN
7010 GOTO 7005

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
10000 R=5000
10010 FORZ=0TO9:H(Z)=0:NEXT:Q=0:E=1:SYSCH,XP-S,YP,LEFT$("0000000",S)
10020 A=PEEK(56320)
10030 IF(AAND1)=0THENH(Q)=H(Q)+1:SYSSO,R,33:IFH(Q)>9THENH(Q)=0
10040 IF(AAND2)=0THENH(Q)=H(Q)-1:SYSSO,R,33:IFH(Q)<0THENH(Q)=9
10050 IF(AAND4)=0THENQ=Q+1:IFQ>STHENQ=S
10060 IF(AAND8)=0THENQ=Q-1:IFQ<0THENQ=0
10080 SYSCH,XP-Q,YP,RIGHT$(STR$(H(Q)),1)
10085 IF(AAND16)=0THENGOSUB10100:RETURN
10087 IFE<>QTHENSYSCH,XP-2-Q,YP+1,"  ^   ":SYSSO,R,33
10095 E=Q:GOTO 10020
10100 E=H(0)+H(1)*10+H(2)*100+H(3)*1000+H(4)*10000+H(5)*100000
10110 SYSCH,XP-S,YP,"      ":SYSCH,XP-S,YP+1,"     ":RETURN

-------------------------------------------------------------------------------------------
W A R T E N  A U F  F E U E R K N O P F D R U C K
-------------------------------------------------------------------------------------------
10500 A=PEEK(56320):IF(AAND16)=16THEN10500
10510 RETURN

-------------------------------------------------------------------------------------------
10700 SYSCH,28,23,"JA  NEIN":W=0:Z=0:SYSCO,28,23,4,1
10710 A=PEEK(56320):IF(AAND8)=0THENW=1
10720 IF(AAND4)=0THENW=0
10730 IFW<>ZTHENSYSCO,28+W*4,23,4,1:SYSCO,28+Z*4,23,4,7
10750 Z=W:IF(AAND16)=0THENRETURN
10760 GOTO10710

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
U N T E R M E N   H O F
-------------------------------------------------------------------------------------------
11000 POKE53265,11:PRINT"":GOSUB14300:GOSUB14400:POKE53265,27
11010 SYSCH,2,13,"";EH$(TT(D));" ";NA$(D);" VON ";LA$(D);",";JA;""
11040 SYSCH,2,15,"SCHLO*BAU"
11050 SYSCH,2,16,"GERECHTER KRIEG"
11055 SYSCH,2,17,"HISTORIE"
11057 SYSCH,2,18,"SPIEL SAVEN"
11058 SYSCH,2,19,"SPIEL LADEN"
11059 SYSCH,2,21,"BEENDEN"
11060 SYSCH,2,20,"INFO"
11070 SYSCH,22,15,"IHRE ST<DTE:"
11080 SYSCH,22,16,"-------------"
11085 Q=0:FORX=0TO11:IFBM(X)=DTHENSYSCH,22,17+Q,"";BN$(X);"":Q=Q+1
11090 NEXT:RETURN
-------------------------------------------------------------------------------------------
H A U P T S C H L E I F E  H O F
-------------------------------------------------------------------------------------------
11100 GOSUB11000:X=0:Y=0:SYSCO,2,15,15,1
11120 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
11130 IF(AAND2)=0THENX=X+1:IFX>6THENX=6
11140 IFX<>YTHENSYSCO,2,15+X,15,1:SYSCO,2,15+Y,15,7:SYSSO,R,17
11160 Y=X:IF(AAND16)=0ANDX=6THENRETURN
11170 IF(AAND16)=0THENGOSUB11200:POKE1294,8:GOTO11100
11180 GOTO11120
-------------------------------------------------------------------------------------------
11200 ON(X+1)GOSUB12300,11500,36100,40800,40950,50000:RETURN
-------------------------------------------------------------------------------------------
11460 SYSCH,2,15,"SIE HABEN ZU WENIG BAUHOLZ!":GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
Krieg
-------------------------------------------------------------------------------------------
11500 GOSUB15000:RETURN:GOSUB39900:RETURN
-------------------------------------------------------------------------------------------
Schlobau
-------------------------------------------------------------------------------------------
12300 POKE53265,11:PRINT"":GOSUB14000:GOSUB14400:GOSUB36900:POKE53265,27
12330 POKE1294,12:IFJS(D)>JATHENGOSUB12391:RETURN
12332 IFJS(D)<JAANDJS(D)<>0THENGOSUB12391:RETURN
12350 IFTT(D)<5THENGOSUB12395:RETURN
12361 SK=INT(0.13*(MU(D)*MP+AC(D)*AP+OD(D)*OP+WA(D)*WP+T(D)))
12362 SYSCH,2,15,"DER SCHLO*BAU WIRD";SK
12363 SA=55000
12364 SYSCH,2,17,"TALER KOSTEN."
12366 SYSCH,2,19,"AU*ERDEM BEN=TIGEN SIE";SA
12368 SYSCH,2,21,"METER BAUHOLZ."
12369 SYSCH,2,23,"STIMMEN SIE DEM PLAN ZU?"
12372 GOSUB10700:IFW=0THENGOSUB12400:RETURN
12374 SYSCH,2,23,"DANN EBEN EIN ANDERES MAL!        ":GOSUB10500:RETURN
12391 SYSCH,4,17,"SIE BAUEN BEREITS EIN SCHLO*":GOSUB10500:RETURN
12392 SYSCH,2,17,"SIE BESITZEN BEREITS EIN SCHLO*":GOSUB10500:RETURN
12395 SYSCH,1,17,"ERSTEINMAL M>SSEN SIE KURF>RST WERDEN!":GOSUB10500:RETURN
12400 IFHO(D)<SATHENGOSUB11460:RETURN
12405 JS(D)=INT(JA+RND(1)*10)+1
12410 PRINT"":GOSUB14000
12420 SYSCH,4,17,"DAS SCHLO* WIRD IM JAHRE";JS(D)
12425 SYSCH,4,18,"FERTIGGESTELLT SEIN."
12430 HO(D)=HO(D)-SA:T(D)=T(D)-SK
12440 GOSUB10500:RETURN
12460 SYSCH,2,23,"SIE HABEN NICHT GENUG BAUHOLZ!      ":GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
S P I E L E R A N Z A H L  E I N G E B E N 
-------------------------------------------------------------------------------------------
13000 POKE53265,11:PRINT"":AZ=1:GOSUB14000
13005 SYS1214,57340+2048,"CH.EINST",8:POKE1346,0:POKE1351,10:POKE1356,9
13007 SYS50212,"WI.EINST",8:SYS51026,1,0:POKE1294,14:POKE53265,27
13008 SYSCH,18,10,"REX I":SYSCH,18,11,"-----"
13010 SYSCH,2,13,"WIEVIELE M<NNER ERGREIFEN"
13015 SYSCH,2,15,"DAS SCHWERT?"
13020 GETA$:IFVAL(A$)>0ANDVAL(A$)<6THENAZ=VAL(A$)
13040 SYSCH,15,15,AZ:IFA$=CHR$(13)THENRETURN
13050 GOTO 13020

-------------------------------------------------------------------------------------------
S P I E L E R N A M E N  E I N G E B E N 
-------------------------------------------------------------------------------------------
13100 FORX=0TOAZ-1:NA$(X)=""
13110 SYSCH,2,17+X,"NAME VON SPIELER";X+1
13120 GETA$:IFA$=""THEN13120
13122 IFA$=CHR$(13)THENNEXTX:RETURN
13125 IFA$=CHR$(20)ANDNA$(X)<>""THENNA$(X)=LEFT$(NA$(X),LEN(NA$(X))-1):GOTO13180
13130 IFASC(A$)<65 OR ASC(A$)>90THENGOTO13120
13140 NA$(X)=NA$(X)+A$
13150 IFLEN(NA$(X))>10THENNA$(X)=LEFT$(NA$(X),10)
13180 SYSCH,22,17+X,NA$(X);"      "
13190 GOTO 13120

-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
14000 SYS 51048,0,24,20,1,1,35:POKE1361,122
14010 SYS 51048,20,24,20,1,10,35
14020 SYS 51048,0,14,1,10,1,26
14030 SYS 51048,0,9,1,5,1,26
14040 SYS 51048,39,9,1,8,29,26
14050 SYS 51048,39,15,1,10,29,26
14060 SYS 51048,0,9,20,1,1,25
14070 SYS 51048,20,9,20,1,10,25
14080 SYS51048,0,0,40,3,1,22
14090 SYS51048,0,3,40,3,1,22
14095 SYS51048,0,6,40,3,1,22:RETURN
14100 REM
14110 SYS1378,53248+2048,57344+2048,8:POKE1294,8:POKE1299,9:POKE1304,14
14120 POKE39818,14:SYS51048,1,0,38,9,0,40
14130 POKE1346,8:POKE1351,9:POKE1356,14:POKE53248+17,27:RETURN
14140 SYS1378,15*4096+2048,57344+2048,8:POKE1346,0:POKE1351,8
14150 POKE1356,13:SYS51048,7,0,24,8,44,22:POKE53248+17,27
14160 RETURN
14180 SYS1378,34816,59392,8:POKE1346,0:POKE1351,8:POKE1356,9
14190 SYS51048,7,0,26,8,38,30:RETURN
14200 SYS1378,34816,59392,8:POKE1346,14:POKE1351,6:POKE1356,13
14210 SYS51048,1,0,37,10,39,40:RETURN
14300 SYS 51048,0,24,20,1,1,35:POKE1361,130
14310 SYS 51048,20,24,20,1,10,35
14320 SYS 51048,0,14,1,10,1,26
14330 SYS 51048,0,11,1,5,1,26
14340 SYS 51048,39,11,1,8,29,26
14350 SYS 51048,39,15,1,10,29,26
14360 SYS 51048,0,11,20,1,1,25
14370 SYS 51048,20,11,20,1,10,25
14380 SYS51048,0,0,40,3,1,22
14390 SYS51048,0,3,40,3,1,22
14395 SYS51048,0,6,40,3,1,22
14396 SYS51048,0,9,40,2,1,22:RETURN
14400 SYS1378,15*4096,57344+2048,8:POKE1346,8:POKE1351,9:POKE1356,0
14410 SYS51048,1,0,38,9,31,12:RETURN
14450 SYS1378,15*4096+2048,57344+2048,8:POKE1346,8:POKE1351,9:POKE1356,15
14460 SYS51048,4,0,31,10,0,14:RETURN
14500 REM
14510 SYS1378,57344,59392,8:POKE1294,8:POKE1299,9:POKE1304,14
14520 POKE39818,14:SYS51048,0,0,39,12,0,0:SYS51048,0,12,39,12,39,0
14530 POKE1346,8:POKE1351,9:POKE1356,14:POKE53265,27:RETURN

-------------------------------------------------------------------------------------------
K R I E G   (aufgerufen von 11500,
-------------------------------------------------------------------------------------------
15000 POKE53265,11:PRINT"":GOSUB14000:GOSUB36900:GOSUB14400:POKE53265,27
15010 Q=0:FORX=0TO4:IFX<>DTHENHF(Q)=X:Q=Q+1
15020 NEXT
15027 SYSCH,2,15,"W<HLEN SIE DAS FEINDLICHE LAND!"
15028 SYSCH,2,21,"NIEMANDEN"
15029 SYSCH,18,17,"FEINDL. TRUPPEN:"
15030 FORX=0TO3:SYSCH,2,17+X,LA$(HF(X)):NEXTX
15040 Q=0:X=0:Y=0:SYSCO,2,17,11,1
15045 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
15050 IF(AAND2)=0THENX=X+1:IFX>4THENX=4
15055 IFX<>YTHENSYSCO,2,17+X,11,1:SYSCO,2,17+Y,11,7
15057 IFX<>YANDX<>4THENQ=HF(X):SYSCH,18,18,"";IN(Q)+KA(Q)+AL(Q);" TRUPPEN "
15060 Y=X:IF(AAND16)=0ANDX<4THENQ=HF(X):GOSUB15070:RETURN
15062 IF(AAND16)=0ANDX=4THENRETURN
15065 GOTO 15045
15070 IFAZ-1<QTHENGOSUB15500:RETURN
15080 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB36900:GOSUB14400:POKE53248+17,27
15082 A$=EH$(TT(Q))+" "+NA$(Q)+" VON "+LA$(Q)
15083 SYSCH,20-.5*LEN(A$),15,"";A$
15085 SYSCH,19,13,"UND"
15090 SYSCH,6,17,"WIR SCHREIBEN DAS JAHR;"JA
15095 SYSCH,11,19,"DER KRIEG BEGINNT!"
15096 SYSCH,11,21,"ANGREIFER: PORT2":SYSCH,11,22,"VERTEIDIGER: PORT1"
15200 HF(0)=KA(D)+AL(D)+IN(D):HF(1)=KA(Q)+AL(Q)+IN(Q):GOSUB10500
15210 P=Q:KR=1:LOAD"FRAG9",8
15215 P=Q:GOSUB16000:REM  GOSUB15700
15220 GOTO168
15500 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB36900:GOSUB14400:POKE53248+17,27
15510 A$=EH$(TT(Q))+" "+NA$(Q)+" VON "+LA$(Q)
15520 SYSCH,20-.5*LEN(A$),15,"";A$
15530 SYSCH,7,17,"IST EIN NEUTRALES MITGLIED "
15535 SYSCH,8,19,"DER STAATENGEMEINSCHAFT!"
15540 SYSCH,2,21,"DER KRIEG KANN NICHT GEF>HRT WERDEN!":GOSUB10500:RETURN
15600 POKE40418,IN(D):POKE40419,AL(D):POKE40420,KA(D)
15610 POKE40421,IN(P):POKE40422,AL(P):POKE40423,KA(P):RETURN
-------------------------------------------------------------------------------------------
Grundbilder und Musik lADEN (aufgefufen von 30, 15215,)
-------------------------------------------------------------------------------------------
16000 SYS1214,57344,"RIT5",8
16005 SYS1378,57344,53248,8
16010 SYS1214,57340,"CH.FLUEGEL6",8:SYS1378,57344,53248+2048,8
16015 SYS1214,57340,"CH.HABSBURG11",8
16030 SYS1214,15*4096+2048-4,"CH.LANDGUT3",8
16040 SYS1214,15*4096-4,"CH.HOF5",8
16050 SYS1214,9*4096+2048,"MUSIC",8
16060 SYS50212,"PA.MAP12",8
16070 POKE1361,122:SYS1243
16080 POKE 53281,8:POKE53280,0:POKE53248+22,PEEK(53248+22)OR16
16090 POKE53248+17,27:RETURN

-------------------------------------------------------------------------------------------
aufgerufen von 4000,
-------------------------------------------------------------------------------------------
16100 POKE1346,8:POKE1351,9:POKE1356,15
16105 SYS1378,15*4096+2048,57344+2048,8:POKE1294,8:POKE1299,9:POKE1304,14
16110 SYS51048,1,0,9,8,68,22
16120 IFLT(D)=0THENSYS51048,15,0,13,8,38,31
16130 IFLT(D)=1THENSYS51048,13,0,19,8,38,39
16140 IFLT(D)=2THENSYS51048,12,0,23,8,57,39
16150 IFLT(D)=3THENSYS51048,11,0,29,8,51,31
16190 RETURN

-------------------------------------------------------------------------------------------
aufgerufen von 4135,
-------------------------------------------------------------------------------------------
16200 SYS51048,1,0,9,8,68,22
16205 A=40*KO(D)/(KK(D)+1):IFA>40THENA=40
16210 B=INT(A/8)
16220 IFB=0THEN16240
16230 FORX=1TOB:SYSCH,3,7-X,"     ":NEXT
16240 C=INT(A-B*8)
16245 IFC=1THENSYSCH,3,6-B,"MNONM"
16250 IFC=2THENSYSCH,3,6-B,"NOPON"
16255 IFC=3THENSYSCH,3,6-B,"OPQPO"
16260 IFC=4THENSYSCH,3,6-B,"PQRQP"
16265 IFC=5THENSYSCH,3,6-B,"QRSRQ"
16270 IFC=6THENSYSCH,3,6-B,"RSTSR"
16275 IFC=7THENSYSCH,3,6-B,"STUTS"
16290 PRINT"";:RETURN

-------------------------------------------------------------------------------------------
Wird nie aufgerufen !!!
-------------------------------------------------------------------------------------------
16300 POKE1346,12:POKE1351,15:POKE1356,11
16305 SYS1378,57344,59392,8
16310 FORX=0TO36STEP3:SYS51048,X,0,3,8,76,12:NEXT:SYS51048,4,1,6,5,70,12:RETURN

-------------------------------------------------------------------------------------------
I N  D E N  R E I C H S R A T  E I N B E R U F E N  (aufgerufen von 175)
-------------------------------------------------------------------------------------------
16400 RP=0:RM=10:FORX=0TOAZ-1
16403 FORY=0TOAZ-1
16405 IFRA(X)>RA(Y)ANDRP<RA(X)THENRM=X:RP=RA(X)
16410 NEXT:NEXT
16415 IFRM=10THENRETURN
16420 PRINT"":GOSUB14000:GOSUB14100:POKE1294,14:D=RM:GOSUB36900
16430 SYSCH,2,13,"WEGEN GUTER POLITIK WERDEN SIE IN"
16440 GOSUB40305:A=ABS(INT(A*3000)):SYSCH,2,15,"DEN REICHSRAT BERUFEN!"
16450 SYSCH,2,17,"SIE ERHALTEN";A"TALER!":T(RM)=INT(T(RM)+A)
16460 IFRP<.3THENGOSUB10500:RETURN
16470 A=12:FORX=0TO11:IFBM(X)=6THENA=X
16475 NEXT
16480 IFA=12THENGOSUB10500:RETURN
16490 SYSCH,2,19,"ZUS<TZLICH BEKOMMEN SIE DAS STADT-"
16495 SYSCH,2,21,"RECHT >BER ";BN$(A);"!":BM(A)=RM:GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
R E I C H S R A T   A B S T I M M U N G   (aufgerufen von 16670, 19140)
-------------------------------------------------------------------------------------------
16500 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB14400:POKE53248+17,27
16510 POKE1294,14:GOSUB36900
16520 SYSCH,12,13,"DER REICHSRAT"
16525 SYSCH,2,15,"DER RAT NIMMT SICH IHRER SACHE AN!"
16530 SYSCH,2,17,"DIE ABSTIMMUNG BEGINNT:"
16540 B=0:FORX=0TO4:FORY=0TO600:NEXT:
16545 A=INT(2*RND(1))
16547 IFA=0THENB=B-1:SYS51048,6+6*X,21,2,2,47,47
16550 IFA=1THENB=B+1:SYS51048,6+6*X,21,2,2,45,47
16555 NEXT
16560 IFB>=0THENSYSCH,2,17,"SIE HABEN NOCHEINMAL GL>CK GEHABT!"
16565 IFB<0THENSYSCH,2,17,"DAS URTEIL WIRD VOLLSTRECKT!"
16599 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
S T A A T S A N L E I H E N - B E L A S T U N G   (aufgerufen von 32030, 40540,)
-------------------------------------------------------------------------------------------
16600 A=MA(D)+VA(0,D)+VA(1,D)+VA(2,D)+VA(3,D)+VA(4,D)
16610 IFA>120+RND(1)*50THEN16620
16615 RETURN
16620 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB14400:POKE53248+17,27
16630 POKE1294,4:GOSUB36900:SYSCH,2,15,"IHR STAAT IST HOCH MIT STAATS-"
16640 SYSCH,2,17,"ANLEIHEN BELASTET!"
16650 SYSCH,2,19,"DER REICHSRAT STIMMT >BER EINE UM-"
16660 SYSCH,2,21,"SCHULDUNG AB!":GOSUB10500
16670 GOSUB16500:IFB>=0THENSYSCH,2,23,"ES BLEIBT ALLES BEIM ALTEN!":RETURN
16680 MA(D)=0:VA(0,D)=0:VA(1,D)=0:VA(2,D)=0:VA(3,D)=VA(4,D)=0:VA(D,D)=100
16685 SYSCH,2,23,"IHR FINANZHAUSHALT WIRD REFORMIERT!"
16690 GOSUB10500:RETURN
-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
U N T E R M E N  - F I N A N Z (aufgerufen von 17300)
-------------------------------------------------------------------------------------------
17000 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB17900:GOSUB36900
17010 SYSCH,12,13,"STAATSANTEILE"
17015 SYSCH,2,16,"TEILE KAUFEN"
17020 SYSCH,2,17,"TEILE VERKAUFEN"
17030 SYSCH,2,18,"BEENDEN"
17035 SYS51048,24,16,12,5,10,26
17036 SYS51431,244,162,0,0,66+M1,0
17037 SYS51431,270,178,0,0,66+M3,1:SYSCH,26,22,"";N1;"P."
17038 SYS51431,214,178,0,0,66+M2,2:SYSCH,20,22,"";N2;"P."
17039 SYSCH,32,22,"";N3;"P.":POKE53248+21,7:RETURN
-------------------------------------------------------------------------------------------
17100 SYSCH,2,14,"ANTEILE KAUFEN      MARKT"
17119 FORX=0TO4:SYSCH,2,16+X,LA$(X):SYSCH,20,16+X,"";MA(X);"TEILE":NEXT
17130 SYSCH,2,21,"BEENDEN"
17140 SYSCH,2,23,"GUTHABEN:";INT(T(D));"T."
17150 POKE53248+17,27:RETURN
-------------------------------------------------------------------------------------------
17200 FORX=13TO23:SYSCH,1,X,"                                     ":NEXT:RETURN

-------------------------------------------------------------------------------------------
F I N A N Z - H A U P T S C H L E I F E   (aufgerufen von 2200)
-------------------------------------------------------------------------------------------
17300 PRINT"":GOSUB17000
17305 X=0:Y=0:SYSCO,2,16,15,1
17310 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
17320 A=PEEK(56320):IF(AAND2)=0THENX=X+1:IFX>2THENX=2
17340 IFX<>YTHENSYSCO,2,16+X,15,1:SYSCO,2,16+Y,15,7:SYSSO,R,17
17345 Y=X:IF(AAND16)=0ANDX=2THENPOKE53248+21,0:RETURN
17350 IF(AAND16)=0THENGOSUB17390:GOTO17300
17380 GOTO17310
-------------------------------------------------------------------------------------------
17390 POKE53248+21,0:ON(X+1)GOSUB17400,17700,17900:RETURN
-------------------------------------------------------------------------------------------
17400 GOSUB17200:GOSUB17100:GOSUB17600:GOSUB17500:B=X:IFX=5THENRETURN
17405 SYSCH,2,21,"            "
17410 SYSCH,2,22,"WIEVIEL SCHULDBRIEFE?":XP=30:YP=22:S=2:GOSUB10000
17420 IFE>MA(B)THENSYSCH,2,22,"NICHT M=GLICH!                   "
17425 IFE>MA(B)THENGOSUB10500:GOTO17400                      "
17430 MA(B)=MA(B)-E:T(D)=T(D)-E*PA(B):VA(D,B)=VA(D,B)+E
17435 IFB<>DTHEN T(B)=T(B)+E*PA(B)
17440 GOSUB17900:GOTO17400
17500 X=0:Y=0:SYSCO,2,16,15,1
17510 A=PEEK(56320):IF(AAND1)=0THENX=X-1:IFX<0THENX=0
17520 A=PEEK(56320):IF(AAND2)=0THENX=X+1:IFX>5THENX=5
17540 IFX<>YTHENSYSCO,2,16+X,15,1:SYSCO,2,16+Y,15,7:SYSSO,R,17
17550 Y=X:IF(AAND16)=0THENRETURN
17580 GOTO17510
-------------------------------------------------------------------------------------------
17600 SYSCH,33,14,"PREISE"
17619 FORX=0TO4:SYSCH,36-LEN(STR$(PA(X))),16+X,""PA(X);"T.":NEXT:RETURN
-------------------------------------------------------------------------------------------
17700 GOSUB17200:GOSUB17800:GOSUB17600:GOSUB17500:B=X:IFX=5THENRETURN
17705 SYSCH,2,21,"            "
17710 SYSCH,2,22,"WIEVIEL SCHULDBRIEFE?":XP=30:YP=22:S=2:GOSUB10000
17720 IFE>VA(D,B)THENSYSCH,2,22,"NICHT M=GLICH!                   "
17725 IFE>VA(D,B)THENGOSUB10500:GOTO17700                      "
17730 MA(B)=MA(B)+E:T(D)=T(D)+E*PA(B):VA(D,B)=VA(D,B)-E:GOSUB17900:GOTO17700
-------------------------------------------------------------------------------------------
17800 SYSCH,2,14,"ANTEILE VERKAUFEN  DEPOT"
17819 FORX=0TO4:SYSCH,2,16+X,LA$(X):SYSCH,20,16+X,"";VA(D,X);"TEILE":NEXT
17830 SYSCH,2,21,"BEENDEN"
17840 SYSCH,2,23,"GUTHABEN:";INT(T(D));"T.":RETURN
-------------------------------------------------------------------------------------------
17900 SYS1378,57344,57344+2048,8:POKE1294,8:POKE1299,9:POKE1304,14
17902 POKE1346,0:POKE1351,6:POKE1356,15:
17905 SYSCH,0,0,"BRANDEN. SACHSEN  PFALZ  BAYERN  B=HMEN ";
17910 FORX=0TO4:SYS51048,X*8,1,8,7,2,26
17920 SYSCH,2+8*X,4,"";MID$(STR$(VA(D,X)),2,4)
17925 A$=MID$(STR$(INT(MA(X)+VA(0,X)+VA(1,X)+VA(2,X)+VA(3,X)+VA(4,X))),2,3)
17930 SYSCH,2+8*X,6,"";A$
17935 SYSCH,2+8*X,5,"VON"
17940 NEXT:POKE53248+17,27:RETURN

-------------------------------------------------------------------------------------------
G L  U B I G E R   F O R D E R N   A N T E I L   (aufgerufen von
-------------------------------------------------------------------------------------------
18000 A=0:FORX=0TOAZ-1:A=A+VA(X,D):NEXT:A=A+MA(D)-VA(D,D)
18005 IFA>.5*VA(D,D)THENGOSUB18010
18007 RETURN
18010 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB36900
18015 SYS1214,57340+2048,"CH.GALGEN",8:POKE1346,0:POKE1351,10:POKE1356,9
18017 SYS50212,"WI.PLEITE",8:SYS51026,1,0:POKE1294,14
18018 A$=STR$(JA)+"-STAATSBANKROTT IN "+LA$(D):GOSUB37200:POKE53248+17,27
18020 SYSCH,2,15,"IHRE GL<UBIGER FORDERN IHREN ANTEIL!"
18025 FORX=0TOAZ-1:VA(X,D)=0:NEXT:VA(D,D)=100:MA(D)=0
18030 SI(D)=0:MU(D)=INT(MU(D)*.75)
18035 AC(D)=INT(.7*AC(D))
18040 OD(D)=INT(.7*OD(D))
18045 WA(D)=INT(.7*WA(D)):T(D)=0
18050 SYSCH,2,17,"IHRE STAATSANTEILE SIND WERTLOS!"
18055 A=INT(.3*EI(D)):SYSCH,1,19,"";A;"LEUTE VERLASSEN DAS LAND!"
18060 EI(D)=INT(EI(D)-A)
18070 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
T I T E L S C R E E N  A N Z E I G E N   (aufgefufen von 14,)
-------------------------------------------------------------------------------------------
18100 SYS1214,9*4096+2048,"MUSIC",8
18105 SYS50212,"PA.REX1",8
18110 SYS1214,57340,"CH.REX1",8:GOSUB6040
18120 POKE53248+26,0:POKE53248+24,8
18130 POKE53281,8:POKE53280,0:POKE53248+22,PEEK(53248+22)OR16
18140 POKE53248+34,9:POKE53248+35,15
18150 SYS51048,0,0,40,25,0,4:SYS51048,0,20,40,5,0,24:POKE53248+17,27:GOSUB6050
18160 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
U N T E R P R O G R A M M   (aufgerufen von 2010, 5100, 35000)
-------------------------------------------------------------------------------------------
19000 SYS51431,60,96,9,1,71,1
19010 A=TT(D):IFA>4THENA=A-1
19020 SYS51431,60,92,FA(TT(D)),1,71+A,0
19030 SYS51431,176,58,0,0,66+D,2
19040 POKE53248+21,7:A=TT(D):IFA=0THENPOKE53248+21,6
19045 POKE53248+37,10:POKE53248+38,9
19050 IFPZ(D)=1THENPOKE53248+21,PEEK(53248+21)OR8:SYS51431,30,96,0,1,78,3
19055 IFJS(D)<=JAANDJS(D)<>0THENPOKE53269,PEEK(53269)OR16
19060 IFJS(D)<=JAANDJS(D)<>0THENSYS51431,290,96,15,1,80,4
19099 RETURN

-------------------------------------------------------------------------------------------
GEGEN DAS LANDRECHT VERSTOSSEN
-------------------------------------------------------------------------------------------
19100 A=(AC(D)+WA(D)+OD(D))/1000:IFA<SI(D)ORA<MU(D)THENGOSUB19110
19105 RETURN
19110 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB14400
19115 POKE1294,14:POKE53248+17,27
19120 GOSUB36900:SYSCH,2,15,"SIE HABEN GEGEN DAS LANDDEKRET"
19130 SYSCH,2,17,"VERSTO*EN!"
19140 SYSCH,2,19,"DER REICHSRAT WIRD IHRE SACHE KL<REN!":GOSUB10500:GOSUB16500
19145 IFB>=0THENRETURN
19150 IFB<0THENMU(D)=0:SI(D)=0
19160 SYSCH,2,23,"IHRE MINEN UND M>HLEN SIND ENTEIGNET!":GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
V A R I A B L E N S E T Z U N G  B E I M  S P I E L S T A R T
-------------------------------------------------------------------------------------------
20000 OPEN15,8,15,"S:HISTORIE":CLOSE15:GOSUB37100
20005 FORD=0TOAZ-1
20010 MP=1000:SI(D)=3:SM=2000:MU(D)=3:EI(D)=2000:T(D)=2000:KO(D)=1000
20020 KP=2:SP=30:HP=1:AP=20:WP=15:OP=10:L1=1:L2=10000:PZ(D)=10:BS=20
20030 JK(D)=0:JS(D)=0:IN(D)=3:KA(D)=3:AL(D)=3
20060 M1=0:M2=1:M3=2:AC(D)=1000:OD(D)=1000:WA(D)=1000
20100 WJ(D)=100:JJ(D)=0.8:KK(D)=550
23000 NEXT:JA=1600
23100 DIMBM(11):DIMBN$(11)
23200 FORD=0TO4:VA(D,D)=100:PA(D)=100:MA(D)=0:NEXT:RETURN

-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
A K T I O N S T E I L  Z U  R U N D E N B E G I N N
-------------------------------------------------------------------------------------------
30000 JI=(JU(D)/3+(SW(D)+ZO(D))/200+FR(D)/365)/3+0.2
30010 WI=(T(D)+WA(D)*WP+OD(D)*OP+AC(D)*AP+MU(D)*MP)/EI(D)
30030 AU=INT(EI(D)*(2*JI-1)*RND(1)*.6)
30035 IFAU>.9*EI(D)THENAU=.9*EI(D)
30050 GE=ABS(INT(.1*RND(1)*EI(D)*WI/WJ(D)))
30070 MG=INT(MU(D)*90/.06*WI/WJ(D))
30080 WG=INT((EI(D)+MG)*SQR(35/35)*(SW(D)+ZO(D))/200)
30090 T(D)=INT(T(D)+MG+WG)
30100 EI(D)=EI(D)-AU+GE
30110 L1=INT(3*RND(1)):L2=INT(RND(1)*1.3*(OD(D)+AC(D)+WA(D)))
30120 GK=RND(1):KG=INT(AC(D)*2.3*WI/WJ(D)*(GK+1)/1.5)
30135 EA=EI(D)
30140 VK=INT(EI(D)*(1-KO(D)/(KK(D)+10))):KO(D)=KO(D)-KK(D):IFKO(D)<0THENKO(D)=0
30150 IFVK>0THENEI(D)=EI(D)-VK
30160 KK(D)=ABS(INT(EI(D)*2.4*WI/WJ(D)))
30180 SG=ABS(INT(SI(D)*13*WI/WJ(D))):S(D)=S(D)+SG:RA(D)=WI/WJ(D)-1
30600 WJ(D)=WI:JJ(D)=JI:R1=0:R2=0:T(D)=INT(T(D)*1.07)
30605 A=INT(OD(D)*0.05):OD(D)=OD(D)-A:WA(D)=WA(D)+A:KO(D)=KO(D)+KG
30700 GOSUB32000:RETURN
-------------------------------------------------------------------------------------------
PFNDUNG
-------------------------------------------------------------------------------------------
31000 A=WA(D)*WP+OD(D)*OP+AC(D)*AP+MU(D)*MP+SI(D)*SM
31005 B=(0.2+RND(1)*.2):IFB*A+T(D)>0THEN RETURN
31010 B=ABS(T(D)/A):POKE53248+17,11:PRINT"":GOSUB14000:IFB>.9THENB=.9
31015 SYS1214,57340+2048,"CH.GALGEN",8:POKE1346,0:POKE1351,10:POKE1356,9
31017 SYS50212,"WI.PLEITE",8:SYS51026,1,0:POKE1294,14
31018 A$=STR$(JA)+"-STAATSBANKROTT VON "+NA$(D):GOSUB37200:GOSUB36900
31020 POKE53248+17,27:SYSCH,2,15,"IHRE GL<UBIGER FORDERN IHREN ANTEIL!"
31035 MU(D)=0:SI(D)=0:AC(D)=INT((1-B)*AC(D))
31040 OD(D)=INT((1-B)*OD(D))
31045 WA(D)=INT((1-B)*OD(D)):T(D)=0
31050 SYSCH,2,17,"ES WERDEN";INT(B*100);"% IHRES BESITZES"
31060 SYSCH,2,19,"GEPF<NDET."
31070 GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
A L L E  M  G L I C H E N  A K T I O N E N  A U F R U F E N
-------------------------------------------------------------------------------------------
32000 GOSUB35700:GOSUB35000:GOSUB35600:GOSUB35300:GOSUB35500
'     Abdankung, Anzeige,Hungerrevolte,neuerTitel,neueMhle
32010 GOSUB31000:GOSUB35800:GOSUB18000
'     Pfndung,Quecksilber,Staatsbankrott
32020 GOSUB36800:GOSUB37000:GOSUB37400:GOSUB37500:GOSUB37800
'     Unwetter,StadtZahlt,StadtBrennt,PestAusgebrochen,Wallenstein
32030 GOSUB19100:GOSUB16600:GOSUB40400
'     LandrechtVerstoen,StaatsanleihenBelastet,Heirat
32200 RETURN

-------------------------------------------------------------------------------------------
EINAHMEN + PERSONEN + WETTER
-------------------------------------------------------------------------------------------
35000 POKE53248+17,11:GOSUB19000
35005 PRINT"":GOSUB14000:GOSUB14100:POKE1294,12:IFAU>=0THEND$="VERLIE*EN"
35010 POKE53248+17,27:IFAU<0THEND$="KAMEN IN"
35020 SYSCH,1,15,"";ABS(AU);"LEUTE ";D$;" IHR LAND."
35030 SYSCH,2,17,"ES WURDEN";GE;"BABIES GEBOREN."
35040 SYSCH,2,19,"IHRE M>HLEN ERBRACHTEN";MG;"TALER."
35060 SYSCH,2,21,"SIE NAHMEN";WG;"TALER DURCH STEUERN"
35070 SYSCH,2,22,"UND ZOLL EIN."
35080 SYSCH,2,13,"SIE GEWANNEN";SG;"UNZEN SILBER."
35090 IFVK>0THENSYSCH,2,11,"ES STARBEN";ABS(VK);"LEUTE AN HUNGER.":GOSUB10500
35100 GOSUB10500:GOSUB4460:GOSUB36900:POKE1294,12
35110 A=INT(GK*5):SYSCH,2,13,"ES WAR ";WE$(A);" WETTER!"
35120 SYSCH,2,15,"SIE ERNTEN";KG;"MAAS GETREIDE!"
35130 A=ABS(KO(D)-KK(D))/(KK(D)+100)*(1+RND(1))/4.5:IFA>.7THENA=.7
35135 SYSCH,2,17,"BEI DER LAGERUNG VERFAULEN"
35140 SYSCH,1,19,INT(A*100);"% IHRES GETREIDES!":KO(D)=INT(KO(D)*(1-A))
35150 GOSUB40305:A=INT(A/5):IFA>3THENA=3
35155 B=3*IN(D)
35160 SYSCH,2,21,"SIE BEZAHLEN";INT(BS*B);"T. SOLD!":T(D)=INT(T(D)-BS*B)
35165 B=INT(0.3*EI(D)/140)
35170 IFB>IN(D)ANDJU(D)>0THENGOSUB35220
35200 LT(D)=A:GOSUB10500:POKE1294,8:POKE53248+21,0:RETURN
-------------------------------------------------------------------------------------------
35220 SYSCH,2,23,"SIE STELLTEN";3*JU(D);"TRUPPEN AUF!"
35230 B=JU(D):IN(D)=IN(D)+B:AL(D)=AL(D)+B:KA(D)=KA(D)+B:RETURN

-------------------------------------------------------------------------------------------
NEUER TITEL ODER KAISER
-------------------------------------------------------------------------------------------
35300 PL=WI*EI(D):A=(AC(D)+WA(D)+OD(D))/1000:IFT(D)<15000THENRETURN
35305 IFA>7ANDTT(D)<1THENTT(D)=1:GOSUB35400:RETURN
35310 IFA>11ANDTT(D)<2THENTT(D)=2:GOSUB35400:RETURN
35315 IFA>15ANDTT(D)<3THENTT(D)=3:GOSUB35400:RETURN
35320 IFA>20ANDTT(D)<4THENTT(D)=4:GOSUB35400:RETURN
35325 IFA>25ANDTT(D)<5ANDEI(D)>3000THENTT(D)=5:GOTO35400
35330 IFA>30ANDTT(D)<6ANDJS(D)<>0ANDEI(D)>3500THENTT(D)=6:GOTO35404
35335 IFA>35ANDTT(D)=6ANDEI(D)>4000THENGOTO35400
35399 RETURN
-------------------------------------------------------------------------------------------
35400 IFTT(D)<>6THEN35404
35401 A=0:FORX=0TO11:IFBM(X)=DTHENA=A+1
35402 NEXTX:IFA<1THENRETURN
35403 TT(D)=7
35404 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB36900:GOSUB14400:GOSUB6020
35405 A$=STR$(JA)+"- "+NA$(D)+" WIRD "+EH$(TT(D)):GOSUB37200:POKE1294,13
35410 POKE53248+17,27:SYSCH,5,15,"IHNEN WIRD EIN NEUER TITEL "
35420 SYSCH,5,17,"VERLIEHEN. VON NUN AN D>RFEN"
35430 SYSCH,5,19,"SIE SICH ";EH$(TT(D));" ";NA$(D);" NENNEN."
35440 GOSUB6030:IFTT(D)=7THENGOSUB35460
35450 GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
35460 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB6080:GOSUB36900
35470 SYS1214,57340+2048,"CH.EINST",8:POKE1346,0:POKE1351,10:POKE1356,9
35480 SYS50212,"WI.EINST",8:SYS51026,1,0:POKE1294,14:POKE53248+17,27
35490 SYSCH,2,15,"ALS MUTIGER UND EDLER K=NIG SIND"
35491 SYSCH,2,17,"SIE DES KAISERAMTES W>RDIG GEWORDEN!"
35492 SYSCH,2,19,"IN LETZTER MINUTE KONNTEN SIE DAS"
35493 SYSCH,2,21,"REICH VOR DEM ZERFALL RETTEN!":GOSUB6090:RETURN
-------------------------------------------------------------------------------------------
MHLE VON ONKEL
-------------------------------------------------------------------------------------------
35500 IF(3*RND(1)*WI/WJ(D))<0.4THENGOSUB35540
35510 RETURN
35540 REM
35542 POKE53248+17,11:PRINT"":GOSUB14000:POKE1294,10:GOSUB6020:GOSUB36900
35543 SYS1214,57340+2048,"CH.MUEHLE",8:POKE1346,0:POKE1351,9:POKE1356,15
35544 SYS50212,"WI.MUEHLE",8:SYS51026,8,0
35545 POKE53248+17,27:SYSCH,6,15,"IHR ONKEL VERERBT IHNEN"
35546 SYSCH,6,17,"EINE SCH=NE, ALTE M>HLE!":MU(D)=MU(D)+1:OD(D)=OD(D)+1000
35550 SYSCH,6,19,"SIE HABEN JETZT";MU(D);"M>HLEN!"
35560 GOSUB6030:GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
HUNGERRVOLTE - MHLEN ZERSTRT
-------------------------------------------------------------------------------------------
35600 C=INT(MU(D)*VK/EA)
35605 IFC>0 THEN GOSUB35640
35610 RETURN
35640 IFMU(D)=0THENRETURN
35641 POKE53248+17,11:GOSUB40600:IFC>MU(D)THENC=MU(D)
35642 A$=STR$(JA)+"-HUNGERREVOLTE IN "+LA$(D):GOSUB37200
35645 POKE1294,11:POKE53248+17,27:MU(D)=MU(D)-C:GOSUB36900
35647 SYSCH,4,15,"BEI EINER HUNGERREVOLTE WURDEN"
35650 SYSCH,3,17,C;"IHRER M>HLEN ZERST=RT."
35660 SYSCH,4,19,"SIE HABEN NUR NOCH";MU(D);"M>HLEN!"
35680 GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
ABDANKUNG
-------------------------------------------------------------------------------------------
35700 IFVK<400THENRETURN
35710 POKE53248+17,11:PRINT"":GOSUB14000:EN(D)=1:GOSUB36900
35715 A$=STR$(JA)+"-ABDANKUNG VON "+NA$(D):GOSUB37200
35717 SYS1214,57340+2048,"CH.GALGEN",8:POKE1346,0:POKE1351,10:POKE1356,9
35719 SYS50212,"WI.GALGEN",8:SYS51026,1,0
35720 POKE53248+17,27:SYSCH,2,15,"DAS VOLK H<TTE SIE IM GRO*EN HUNGER-"
35730 SYSCH,2,17,"ELEND FAST GELYNCHT."
35740 SYSCH,2,19,"SIE M>SSEN SICH AUS IHREM AMTE"
35742 SYSCH,2,21,"1 JAHR ZUR>CKZIEHEN!"
35745 IFEI(D)<200THENEI(D)=INT(200+RND(1)*100)
35750 GOSUB10500:RETURN
-------------------------------------------------------------------------------------------
QUECKSILBER IN SILBER
-------------------------------------------------------------------------------------------
35800 C=INT(RND(1)*10):IFC<>1THENRETURN
35805 POKE53248+17,11::GOSUB40600:POKE1294,6:POKE53248+17,27
35810 C=INT(S(D)*.6+INT(RND(1)*100))
35820 SYSCH,4,15,"IHR HOFALCHIMIST VERWANDELTE"
35830 SYSCH,4,17,"QUECKSILBER IN SILBER."
35840 SYSCH,3,19,C;"SILBERUNZEN GEWINN!!"
35850 S(D)=S(D)+C:GOSUB10500:RETURN

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
35900 A=(T(D)+WA(D)*WP+OD(D)*OP+AC(D)*AP+MU(D)*MP):RETURN

-------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------
36000 IFBM(0)=DTHENSYSCO,20,7,9,A
36010 IFBM(1)=DTHENSYSCO,31,7,6,A
36015 IFBM(2)=DTHENSYSCO,14,8,6,A
36020 IFBM(3)=DTHENSYSCO,12,10,7,A
36025 IFBM(4)=DTHENSYSCO,16,12,12,A
36030 IFBM(5)=DTHENSYSCO,8,15,4,A
36035 IFBM(6)=DTHENSYSCO,19,16,7,A
36040 IFBM(7)=DTHENSYSCO,28,18,4,A
36045 IFBM(8)=DTHENSYSCO,17,18,10,A
36050 IFBM(9)=DTHENSYSCO,27,22,6,A
36055 IFBM(10)=DTHENSYSCO,35,21,4,A
36060 IFBM(11)=DTHENSYSCO,18,22,7,A
36065 IFA=1THENA=3:RETURN
36070 IFA=3THENA=5:RETURN
36075 IFA=5THENA=7:RETURN
36080 IFA=7THENA=1:RETURN
36099 RETURN

-------------------------------------------------------------------------------------------
UNTERMEN H I S T O R I E VON MEN HOF
-------------------------------------------------------------------------------------------
36100 GOSUB37300:B$=""
36105 POKE53248+17,11:PRINT"":GOSUB14000:GOSUB36900:GOSUB14400:POKE53248+17,27
36110 X=0
36120 POKE53248+17,11:INPUT#1,A$:IFA$=B$THENCLOSE1:GOSUB36150:GOSUB10500:RETURN
36130 B$=A$:SYSCH,2,13+X,A$:X=X+1
36135 IFX=7THENGOSUB36150:GOSUB10500:GOTO36105
36140 GOTO36120
36150 POKE53248+17,27:SYSCH,11,22,"--KNOPF DR>CKEN--":RETURN
36230 T(D)=INT(T(D)-100000-RND(1)*50000):GOSUB10500:RETURN
36300 T(D)=INT(T(D)-100000-RND(1)*50000):RETURN

-------------------------------------------------------------------------------------------
ACKERLAND DURCH UNWETTER VERWSTET
-------------------------------------------------------------------------------------------
36800 A=INT(RND(1)*10):IFA<>2THENRETURN
36810 POKE53248+17,11:PRINT"":GOSUB14300:GOSUB36920:POKE1294,11
36812 SYS1378,15*4096,57344+2048,8:POKE1346,0:POKE1351,9:POKE1356,11
36813 SYS50212,"WI.UNWETTER",8:SYS51026,1,0
36814 A$=STR$(JA)+"-UNWETTER IN "+LA$(D):GOSUB37200
36815 A=RND(1)*.5+.2:POKE53248+17,27
36820 SYSCH,2,17,"";INT(A*100);"% IHRES ACKERLANDES WURDE DURCH"
36825 SYSCH,6,19,"  EIN UNWETTER VERW>STET!":A=INT(A*AC(D))
36830 AC(D)=AC(D)-A:OD(D)=OD(D)+A
36850 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
U N T E R R O U T I N E  "N A M E N  A N Z E I G E N"
-------------------------------------------------------------------------------------------
36900 A$=EH$(TT(D))+" "+NA$(D)+" VON "+LA$(D):SYSCH,20-.5*LEN(A$),11,"";A$;""
36910 RETURN
-------------------------------------------------------------------------------------------
36920 A$=EH$(TT(D))+" "+NA$(D)+" VON "+LA$(D):SYSCH,20-.5*LEN(A$),13,"";A$;""
36930 RETURN

-------------------------------------------------------------------------------------------
STADT ZAHLT FLLIGEN TRIBUT
-------------------------------------------------------------------------------------------
37000 A=INT(12*RND(1)):IFBM(A)=DTHEN37010
37005 A=INT(12*RND(1)):IFBM(A)=DTHEN37010
37007 RETURN
37010 POKE53248+17,11:PRINT"":GOSUB14300:GOSUB36920:POKE1294,5
37012 SYS1378,15*4096,57344+2048,8:POKE1346,0:POKE1351,9:POKE1356,12
37013 SYS50212,"WI.TRIBUT",8:SYS51026,1,0
37015 GOSUB6000:POKE53248+17,27
37020 SYSCH,4,17,"IHRE STADT ";BN$(A);" ZAHLT":B=A
37025 SYSCH,4,19,"DEN F<LLIGEN TRIBUT!":GOSUB40305:A=INT(A*5000)
37030 SYSCH,4,21,"SIE ERHALTEN";A;"TALER!":T(D)=INT(T(D)+A)
37050 GOSUB6010:GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
U N T E R R O U T I N E N  H I S T O R I E  
-------------------------------------------------------------------------------------------
37100 OPEN1,8,2,"HISTORIE,S,W":PRINT#1,"HABSBURGS GESCHICHTE":CLOSE1:RETURN
37200 OPEN1,8,2,"HISTORIE,S,A":PRINT#1,A$:CLOSE1:RETURN
37300 OPEN1,8,2,"HISTORIE,S,R":RETURN

-------------------------------------------------------------------------------------------
STADT ABGEBRANNT
-------------------------------------------------------------------------------------------
37400 IFINT(RND(1)*5)<>INT(RND(1)*5)THENRETURN
37401 A=INT(12*RND(1)):IFBM(A)=DTHEN37410
37407 RETURN
37410 POKE53248+17,11:PRINT"":GOSUB14300:GOSUB36920:POKE1294,2
37412 SYS1378,15*4096,57344+2048,8:POKE1346,0:POKE1351,9:POKE1356,12
37413 SYS50212,"WI.FEUER",8:SYS51026,1,0
37414 A$=STR$(JA)+"-FEUERSBRUNST IN "+BN$(B):GOSUB37200:POKE53248+17,27
37420 SYSCH,4,17,"IHRE STADT ";BN$(A);" IST BEI":B=A
37425 SYSCH,4,19,"EINER FEUERSBRUNST ABGEBRANNT!":GOSUB40305:A=INT(A*10000)
37430 SYSCH,4,21,"SIE ZAHLEN";A;"TALER!":T(D)=INT(T(D)-A)
37450 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
PEST AUSGEBROCHEN
-------------------------------------------------------------------------------------------
37500 A=INT(14*RND(1)):IFA=11THENIFEI(D)>2000THEN37510
37507 RETURN
37510 POKE53248+17,11:
37511 PRINT"":GOSUB14000:POKE1294,11:GOSUB36900
37515 SYS1214,57340+2048,"CH.TOT",8:POKE1346,0:POKE1351,9:POKE1356,15
37516 A$=STR$(JA)+"-PEST IN "+LA$(D):GOSUB37200
37517 SYS50212,"WI.TOT",8:SYS51026,1,0:POKE53248+17,27
37520 SYSCH,4,15,"DIE PEST IST AUSGEBROCHEN!":B=A:A=INT(EI(D)*(.3+RND(1)*.5))
37525 SYSCH,4,17,"ES HAT";A;"LEUTE DAHINGERAFFT!"
37530 EI(D)=INT(EI(D)-A)
37550 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
aufgefufen von 165, 
-------------------------------------------------------------------------------------------
37600 REM
37610 F=D:FORD=0TOAZ-1:GOSUB40305:HF(D)=A:NEXT:D=F
37630 N1=0:N2=0:N3=0:M1=0:M2=1:M3=2:FORX=0TOAZ-1:A=INT(5*HF(X)*EI(X)/2000)
37640 IFA>N1THENN1=A:M1=X
37642 NEXT
37650 FORX=0TOAZ-1:A=INT(5*HF(X)*EI(X)/2000)
37660 IFA>N2ANDX<>M1THENN2=A:M2=X
37665 NEXT
37670 FORX=0TOAZ-1:A=INT(5*HF(X)*EI(X)/2000)
37680 IFA>N3ANDX<>M1ANDX<>M2THENN3=A:M3=X
37685 NEXT:RETURN

-------------------------------------------------------------------------------------------
WALLENSTEIN PLNDERT
-------------------------------------------------------------------------------------------
37700 W1=EI(D)/140:W2=KA(D)+AL(D)+IN(D):W3=(W1-W2)/W1:RETURN
37800 IFINT(RND(1)*2)<>INT(RND(1)*2)THENRETURN
37805 A=INT(RND(1)*12):IFBM(A)=DTHENGOSUB37820:RETURN
37810 RETURN
37820 POKE53248+17,11:PRINT"":GOSUB14000:POKE1294,2:GOSUB36900
37821 SYS1214,57340+2048,"CH.WALLENSTEIN",8:POKE1346,0:POKE1351,10:POKE1356,9
37825 SYS50212,"WI.WALLENSTEIN",8:SYS51026,1,0
37827 A$=STR$(JA)+"-WALLENSTEIN PL>NDERT "+BN$(A):GOSUB37200
37830 GOSUB37700:POKE53248+17,27
37840 SYSCH,2,15,"WALLENSTEIN PL>NDERT ";BN$(A);" !"
37845 SYSCH,2,17,"NACH EINEM HARTEN KAMPF VERLOREN"
37850 T=INT(.5*(KA(D)+IN(D)+AL(D))):SYSCH,2,19,"SIE";T;"TRUPPEN!"
37860 IFW3>.7THENBM(A)=6:SYSCH,2,21,"SIE VERLIEREN ";BN$(A);" !"
37865 IFW3>.8THENT=INT(SI(D)*.2):SI(D)=SI(D)-T
37867 IFW3>.8THENSYSCH,1,23,"";T;"SILBERMINEN WERDEN ZERST=RT!"
37868 AL(D)=INT(AL(D)*.5):IN(D)=INT(IN(D)*.5):KA(D)=INT(KA(D)*.5)
37870 GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
V A R I A B L E N B E R E C H N U N G  B E I  R U N D E N B E G I N  (11500, 165,)
-------------------------------------------------------------------------------------------
39900 POKE 53248+26,0
40200 GOSUB40305:IFA>15THENA=11+RND(1)*6
40205 WP=INT(15*A):AP=INT(20*A):OP=INT(10*A):KP=INT((2+RND(1))*10*A*A)/10
40207 KP=INT((2+RND(1))*10*A*KK(D)/(KO(D)+500))/10+.1
40210 MP=INT(1000*A):SM=INT(2000*A):SP=INT((30+10*RND(1))*SQR(A))
40230 HP=INT(10/A+1)/10:A1=INT(A*2000):K1=INT(A*3000):I1=INT(A*3500)
40240 BS=INT(A*100)
40245 IFMP>6000THENMP=INT(6000+500*RND(1))
40250 IFSM>20000THENSM=INT(20000+1500*RND(1))
40260 IFSP>350THENSP=INT(300+50*RND(1))
40275 LO=D:FORD=0TOAZ-1:GOSUB40305
40280 PA(D)=INT(A*1000*EI(D)/2500/SQR(MA(D)+1)*((RND(1)+1)/2))
40285 NEXT:D=LO
40290 IFT(D)<0THENMA(D)=MA(D)+INT(ABS(T(D)/1000))
40295 IFT(D)>0ANDMA(D)>0THENMA(D)=MA(D)-INT(T(D)/1000):IFMA(D)<0THENMA(D)=0
40297 MA(D)=MA(D)+7
40300 RETURN
-------------------------------------------------------------------------------------------
40305 A=(T(D)*15/(WP+2)+WA(D)*15+OD(D)*10+AC(D)*30+MU(D)*1000+SI(D)*2000)
40310 A=A/55000:IFA=0THENA=0.05
40315 RETURN

-------------------------------------------------------------------------------------------
H E I R A T
-------------------------------------------------------------------------------------------
40400 IFJA<1640ANDTT(D)>1ANDPZ(D)<>1THENGOSUB40410
40405 RETURN
40410 POKE53248+17,11:GOSUB6060
40413 PRINT"":GOSUB14000
40414 A$=STR$(JA)+"-"+NA$(D)+" HEIRATET!":GOSUB37200
40415 SYS1214,57340+2048,"CH.MUEHLE",8:POKE1346,0:POKE1351,10:POKE1356,9
40416 SYS50212,"WI.HEIRAT",8:SYS51026,1,0:POKE53248+17,27
40420 POKE1294,14:GOSUB36900:POKE53248+21,0
40430 SYSCH,4,15,"SIE HEIRATEN EINE PRINZESSIN!"
40440 SYSCH,4,17,"IHRE HOCHZEIT WIRD ZU EINEM"
40445 SYSCH,4,19,"FESTLICHEN HOFZEREMONIELL!":PZ(D)=1
40447 A=INT(PA(D)*20):T(D)=INT(T(D)+A):SYSCH,4,21,"MITGIFT:";A;"TALER!"
40450 GOSUB6070:GOSUB10500:RETURN

-------------------------------------------------------------------------------------------
RUFT STAATSANLEIHEN-BELASUNG AUF
-------------------------------------------------------------------------------------------
40500 IFAZ=5THENRETURN
40510 FORX=AZTO4
40520 PA(X)=INT((JA-1599)^2*100*RND(1)/SQR(MA(X)+1)+234)
40530 MA(X)=INT(MA(X)*(1.6-RND(1))+4)
40535 A=MA(X)+VA(0,X)+VA(1,X)+VA(2,X)+VA(3,X)+VA(4,X)
40540 IFA>130+RND(1)*10THENTY=D:D=X:GOSUB16600:D=TY
40550 NEXT:RETURN

-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
40600 PRINT"":GOSUB14000:GOSUB14400:GOSUB36900:RETURN
40700 PRINT#1,NA$(D)","EI(D)","WA(D)","AC(D)","OD(D)","MU(D)","SI(D)
40710 PRINT#1,T(D)","TT(D)","WI(D)","JU(D)","IN(D)","AL(D)","KA(D)","JS(D)
40720 PRINT#1,SW(D)","ZO(D)","JU(D)","FR(D)
40725 PRINT#1,PZ(D)","S(D)","KK(D)","KO(D)","HO(D)
40730 RETURN
-------------------------------------------------------------------------------------------
S P I L S T A N D  S P E I C H E R N
-------------------------------------------------------------------------------------------
40800 POKE53248+17,11:OPEN15,8,15,"S:SPIEL":CLOSE15:OPEN1,8,2,"SPIEL,S,W"
40809 PRINT#1,D:PRINT#1,JA:PRINT#1,AZ
40810 FORA=0TO11:PRINT#1,BN$(A):PRINT#1,BM(A):NEXT
40811 FORA=0TO4:PRINT#1,WE$(A):NEXT
40812 FORA=0TO4:PRINT#1,LA$(A):NEXT
40813 FORA=0TO3:PRINT#1,JU$(A):NEXT
40814 FORA=0TO7:PRINT#1,FA(A):NEXT
40815 FORA=0TO7:PRINT#1,EH$(A):NEXT
40820 Z=D:FORD=0TOAZ-1:GOSUB40700:NEXT:D=Z:CLOSE1:POKE53248+17,27:RETURN

-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
40900 INPUT#1,NA$(X),EI(X),WA(X),AC(X),OD(X),MU(X),SI(X)
40910 INPUT#1,T(X),TT(X),WI(X),JU(X),IN(X),AL(X),KA(X),JS(X)
40920 INPUT#1,SW(X),ZO(X),JU(X),FR(X)
40925 INPUT#1,PZ(X),S(X),KK(X),KO(X),HO(X):RETURN
40940 RETURN
-------------------------------------------------------------------------------------------
S P I E L S T A N D  E I N L E S E N 
-------------------------------------------------------------------------------------------
40950 POKE53248+17,11:OPEN1,8,2,"SPIEL,S,R"
40962 INPUT#1,D,JA,AZ:FORA=0TO11:INPUT#1,BN$(A),BM(A):NEXT
40963 FORA=0TO4:INPUT#1,WE$(A):NEXT
40964 FORA=0TO4:INPUT#1,LA$(A):NEXT
40965 FORA=0TO3:INPUT#1,JU$(A):NEXT
40966 FORA=0TO7:INPUT#1,FA(A):NEXT
40967 FORA=0TO7:INPUT#1,EH$(A):NEXT
40970 FORX=0TOAZ-1:GOSUB40900:NEXT:CLOSE1:POKE53248+17,27:RETURN

-------------------------------------------------------------------------------------------
I N F O
-------------------------------------------------------------------------------------------
50000 POKE53265,11:SYS1214,57340+2048,"CH.SYS.INF",8
50050 POKE1361,255:POKE1346,13:POKE1351,15:POKE1356,10
50060 SYS50212,"PA.SYS.INFO",8:SYS51048,0,0,40,25,0,0
50065 SYS51048,0,20,40,5,0,20
50070 POKE53265,27:GOSUB10500:POKE1361,122:SYS50212,"PA.MAP12",8:RETURN


READY.



-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
